home *** CD-ROM | disk | FTP | other *** search
/ Gurewich OLE Controls for Visual Basic 4 / Gurewich OLE Controls for Visual Basic 4.iso / ocxprog / programs / ch15 / wingapi.bas next >
Encoding:
BASIC Source File  |  1995-06-05  |  455 b   |  10 lines
  1. Attribute VB_Name = "Module1"
  2. ' Declare the Ellipse() API function.
  3. #If Win32 Then
  4.     ' For 32-bit Windows.
  5.     Declare Function Ellipse Lib "gdi32" (ByVal hDC As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
  6. #Else
  7.     ' For 16-bit Windows
  8.     Declare Function Ellipse Lib "GDI" (ByVal hDC As Integer, ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer
  9. #End If
  10.